home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / partial.tcl.z / partial.tcl
Text File  |  2002-07-08  |  685b  |  29 lines
  1. #
  2. # partial.tcl --
  3. #
  4. # Prodedure to Concatenate Partial messages to a new message.
  5. #
  6. # Author: Sven-Ove Westberg   (sow@cad.luth.se)
  7. # Sven-Ove Westberg, CAD, University of Lulea, S-971 87 Lulea, Sweden
  8. #
  9. proc Partial_Concatenate {} {
  10.     global exmh
  11.     set msgs {}
  12.     Ftoc_Iterate line {
  13.         lappend msgs [Ftoc_MsgNumber $line]
  14.     }
  15.     Exmh_Status "Concatenate message $msgs"
  16.     Exmh_Debug exec mhn -store +$exmh(folder) $msgs
  17.     if [catch {open "|mhn -store +$exmh(folder) $msgs |& cat"} input] {
  18.         Exmh_Status $input
  19.         return
  20.     }
  21.     while {[gets $input line] >= 0} {
  22.         Exmh_Status $line
  23.     }
  24.     if [catch {close $input} err] {
  25.         Exmh_Status $err
  26.     }
  27.     busy Scan_FolderForce ; Msg_ShowSomething
  28. }
  29.